home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
db2ios.arc
/
LABELS.SIG
< prev
next >
Wrap
Text File
|
1983-01-04
|
1KB
|
53 lines
* labels.sig 08/18/83
ERASE
STORE DATE() TO stdat
* get a starting point
STORE DATE() TO stdat
@ 18,12 SAY 'Orders after what date require shipping labels'
@ 18,60 GET stdat PICTURE '99/99/99'
READ
STORE $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
GOTO TOP
STORE t TO more
SET MARGIN TO 5
DO WHILE more
IF .NOT. EOF
STORE $(dayu,7,2)+$(dayu,1,2)+$(dayu,4,2) TO stdate1
IF stdate1 >= stdate
STORE 0 TO xtra
? ' '
? TRIM(fname) +' ' + lname
? addr1
IF addr2 <> ' '
? addr2
ELSE
STORE xtra + 1 TO xtra
ENDIF addr2
IF addr3 <> ' '
? addr3
ELSE
STORE xtra + 1 TO xtra
ENDIF addr3
? TRIM(city) +', '+ state + ' ' +zip
? ' '
? '** MAGNETIC MEDIA - DO NOT X-RAY ** '
? ' '
DO WHILE xtra <> 0
? ' '
STORE xtra -1 TO xtra
ENDDO while xtra
SKIP
ELSE
SKIP
ENDIF $date
ELSE
STORE f TO more
ENDIF not EOF
ENDDO more
EJECT
? CHR(30)
SET PRINT OFF
RELEASE all
STORE t TO more
STORE t TO first